home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / sprtxtrn.sea / Support Tools eXternals 1.2.5 / card_6802.txt < prev    next >
Text File  |  1990-11-13  |  2KB  |  89 lines
  1. -- card: 6802 from stack: in.5
  2. -- bmap block id: 13760
  3. -- flags: 0000
  4. -- background id: 3858
  5. -- name: PrintContainer
  6. ----- HyperTalk script -----
  7. on HideObjects
  8.   hide cd fld "test"
  9.   hide cd btn "try it!"
  10. end HideObjects
  11.  
  12. on ShowObjects
  13.   show cd fld "test"
  14.   show cd btn "try it!"
  15. end ShowObjects
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: A002
  21. -- rect: left=80 top=302 right=336 bottom=173
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 8192
  28. -- line height: 16
  29. -- part name: Try It!
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   global errGlobal
  33.  
  34.   ask "What font should I use?" with "New York"
  35.   put it into printFont
  36.  
  37.   printcontainer cd fld "test","a sample document","pagesetup", "printJob", printFont,12, "Plain"
  38. end mouseUp
  39.  
  40.  
  41.  
  42.  
  43. -- part 2 (field)
  44. -- low flags: 00
  45. -- high flags: 0007
  46. -- rect: left=18 top=116 right=296 bottom=250
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: Test
  55.  
  56.  
  57. -- part contents for background part 38
  58. ----- text -----
  59. 37/50
  60.  
  61. -- part contents for background part 20
  62. ----- text -----
  63. PrintContainer - An XCMD to print a HyperCard container on the currently chosen printer.
  64.  
  65. Calling syntax: PrintContainer textToPrint ┬½, documentName┬╗ ┬½ΓÇ£pagesetup|NOpagesetupΓÇ¥┬╗ ┬½, ΓÇ£printjob|NOprintjobΓÇ¥┬╗ ┬½, font┬╗ ┬½, fSize┬╗ ┬½, styleStr┬╗ ┬½,ΓÇ£noDialog:errorGlobalΓÇ¥┬╗
  66.      TEXTTOPRINT:  the container.
  67.      DOCUMENTNAME:  the name for the status dialog.
  68.      NOPAGESETUP:  suppresses the pagesetup dialog that normally appears.
  69.      NOprintjob:  suppresses the print job dialog that normally appears.
  70.      FONT:  the font (name) to use in printing.  If the specified font is not available, GENEVA is used.
  71.      FSIZE:  the font size to use when printing.
  72.      STYLESTR:  a list of styles to use, enclosed in quotes.
  73.  
  74. During the printing, you are allowed to press Command-Period in order to cancel.
  75.  
  76.  
  77. -- part contents for card part 2
  78. ----- text -----
  79. This is a great stack!
  80.  
  81. I really like it!
  82.  
  83. I really like this XCMD!
  84.  
  85. All of the XCMD's work!
  86.  
  87. There are no bugs to be found here!
  88.  
  89. What a bunch of garbage!